From 65c5693822645badf09efa6154114275d4e46791 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 9 Sep 2006 10:43:09 +0000 Subject: [PATCH] (life-display-generation): Test for input manually if `sleeptime' is negative or null. --- lisp/play/life.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/play/life.el b/lisp/play/life.el index 263c4450c9d..a034c387400 100644 --- a/lisp/play/life.el +++ b/lisp/play/life.el @@ -269,7 +269,8 @@ generations (this defaults to 1)." (recenter 0) ;; Redisplay; if the user has hit a key, exit the loop. - (or (eq t (sit-for sleeptime)) + (or (and (sit-for sleeptime) (< 0 sleeptime)) + (not (input-pending-p)) (throw 'life-exit nil))) (defun life-extinct-quit () -- 2.30.2